home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / win / edu / profan2 / beispiel.lzh / BMPVIEW.PRF < prev    next >
Encoding:
Text File  |  1995-07-31  |  316 b   |  16 lines
  1. Declare Name$
  2. WindowTitle "PICTURE VIEWER"
  3. CLS
  4. ShowMax
  5.  
  6. Let Name$=@LoadFile$("picture files","*.BMP")
  7. WhileNot @Equ$(Name$,"")
  8.   Cls
  9.   LoadBmp Name$,0,0; 0
  10.   WindowTitle @Add$("PICTURE VIEWER - [", \
  11.               @Add$(Name$,"]"))
  12.   WaitMouse
  13.   Let Name$=@LoadFile$("Picture files","*.BMP")
  14. Wend
  15.  
  16. End